home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / libs / conlib.lha / ConLib / Modula_Stuff / ConLibL.def < prev   
Text File  |  1992-01-04  |  4KB  |  154 lines
  1. (* TAB = 3
  2.  
  3. *******************************************************************************
  4. *****
  5. ***** Name      : ConLibL.def                   INTERFACE MODULE
  6. *****
  7. ***** Made by   : Bjorn Reese (C) 1991
  8. *****
  9. ***** Interface : Jesper B. Krogholt
  10. *****
  11. ***** Version   : 2.0
  12. *****
  13. ***** Compiler  : M2Modula 4.0d
  14. *****
  15. ***** Purpose   : Making IO a lot easier
  16. *****
  17. *******************************************************************************
  18. *****
  19. ***** History   : 27 AUG 91   Contruct of the interface
  20. *****              5 NOV 91   2.0 update (-- BReese --)
  21. *****
  22. *******************************************************************************
  23.  
  24. *)
  25.  
  26. DEFINITION MODULE ConLibL {"con.library",1};
  27. (*$ Implementation:=FALSE *)
  28.  
  29. FROM SYSTEM            IMPORT ADDRESS, BYTE;
  30. FROM ExecD            IMPORT MsgPortPtr;
  31. FROM IntuitionD    IMPORT WindowPtr, IDCMPFlagSet, IntuiMessagePtr;
  32. FROM ConUnit        IMPORT ConUnit, ConUnitPtr;
  33.  
  34. IMPORT D:ConLibD;
  35.  
  36. (* --------------- PROCEDURE DECLARATIONS  ----------------- *)
  37.  
  38. PROCEDURE OpenCon(ConWindow{8}: WindowPtr; CursorMode{0} : CARDINAL)
  39.         : D.ConHandleType;
  40.     CODE -30;
  41.  
  42.     (* Open a new ConWindow *)
  43.  
  44.  
  45. PROCEDURE CloseCon(ConHandle{8}: D.ConHandleType);
  46.     CODE -36;
  47.  
  48.     (* Close a specific ConWindow *)
  49.  
  50.  
  51. PROCEDURE DoFormat(ConHandle{8} : D.ConHandleType; String{9}, FormatArgs{10},
  52.         TextBuffer{11} : ADDRESS; BufferSize{0} : LONGCARD)
  53.         : ADDRESS;
  54.     CODE -42;
  55.  
  56.     (* Format a Text String like the RawDoFmt in Exec library but with a lot
  57.         of nice functions *)
  58.  
  59.  
  60. PROCEDURE UserNotes(ConHandle{8} : D.ConHandleType; UserText{9} : ADDRESS;
  61.         NoteNumber{0} : CARDINAL);
  62.     CODE -48;
  63.  
  64.     (* Define a specific user text. *)
  65.  
  66.  
  67. PROCEDURE DefineChars(Mode{0} : LONGCARD; BitTable{9} : D.BitTablePtrType;
  68.         ArraryOfChars{10} : ADDRESS);
  69.     CODE -54;
  70.  
  71.     (* Create or modify a table of allowed characters for Accept and AcceptString *)
  72.  
  73.  
  74. PROCEDURE DisplayRaw(ConHandle{8} : D.ConHandleType; String{9} : ADDRESS;
  75.         MaxLength{0} : LONGINT);
  76.     CODE -60;
  77.  
  78.     (* Print an unformatted text [ without DoFormat ] in ConWindow *)
  79.  
  80.  
  81. PROCEDURE Display(ConHandle{8} : D.ConHandleType; String{9},
  82.         FormatArguments{10} : ADDRESS; MaxLength{0} : LONGCARD);
  83.     CODE -66;
  84.  
  85.     (* Print a formatted text [ with DoFormat ] in ConWindow *)
  86.  
  87.  
  88. PROCEDURE Accept(ConHandle{8} : D.ConHandleType; AcceptStructure{9} :
  89.         D.AcceptType; Flags{0}: D.AcceptFlagSet)
  90.         : LONGINT;
  91.     CODE -72;
  92.  
  93.     (* Get an input [ key or message ] from the console *)
  94.  
  95.  
  96. PROCEDURE AcceptString(ConHandle{8} : D.ConHandleType;
  97.         AcceptStructure{9} : D.AcceptStringType; Flags{0}: D.AcceptFlagSet)
  98.         : LONGINT;
  99.     CODE -78;
  100.  
  101.     (* Get a string from the console *)
  102.  
  103.  
  104. PROCEDURE SetMsgHandler(ConHandle{8} : D.ConHandleType; NewMsgHandler{9} :
  105.         ADDRESS)
  106.         : ADDRESS;
  107.     CODE -84;
  108.  
  109.     (* Set a new User Message Handler *)
  110.  
  111.  
  112. PROCEDURE GetInfo(ConHandle{8} : D.ConHandleType;
  113.         ConInfo{9} : D.ConInfoType)
  114.         : D.ConInfoType;
  115.     CODE -90;
  116.  
  117.     (* Get information about the ConWindow *)
  118.  
  119.  
  120. PROCEDURE SetGfx(ConHandle{8}: D.ConHandleType;
  121.         Styles{0}, FgCol{1}, BgCol{2} : CARDINAL);
  122.     CODE -96;
  123.  
  124.     (* Set Text Styles, Foreground and Background Colors *)
  125.  
  126.  
  127. PROCEDURE GotoXY(ConHandle{8} : D.ConHandleType; X{0}, Y{1} : CARDINAL);
  128.     CODE -102;
  129.  
  130.     (* Place the cursor at a specific position *)
  131.  
  132.  
  133. PROCEDURE Cursor(ConHandle{8} : D.ConHandleType; Mode{0} : CARDINAL);
  134.     CODE -108;
  135.  
  136.     (* Turn Cursor ON or OFF *)
  137.  
  138.  
  139. PROCEDURE Scroll(ConHandle{8} : D.ConHandleType; Step{0} : INTEGER);
  140.     CODE -114;
  141.  
  142.     (* Scroll the text in the ConWindow a specific amount of lines *)
  143.  
  144.  
  145. PROCEDURE Convert(String{9}, ResultBuffer{10} : ADDRESS; Flags{0} : LONGCARD;
  146.         MaxLength{1} : CARDINAL)
  147.         : ADDRESS;
  148.     CODE -120;
  149.  
  150.     (* Convert an ASCII string to a binary value [ DEC/HEX/OCT/BIN ] *)
  151.  
  152.  
  153. END ConLibL.
  154.